10 LO=7680:CO=30720:L=0:H=3:N=4
15 FORI=900TO915:READJ:POKEI,J:NEXTI
20 POKE36869,255:POKE251,0:POKE252,0:POKE253,0:POKE36878,96:GOTO5000
50 IFP<>150THENGOSUB3000:GOTO55
52 FORI=7701TO7921STEP22:POKEI,33:POKEI+CO,5:NEXT:POKE7833,32:FORJ=1TO50:NEXT
54 L=L+1:P=0:PRINT"";L:H=H-1:IFH<1THENH=4
55 POKE37154,127:D=(PEEK(37137)AND28)OR(PEEK(37152)AND128)
60 F=(PEEK(37137)AND32)/32:P=P+1
70 IFD=156THEN150
80 IFD=28THENX1=X1+1:Y1=Y
90 IFD=152THENY1=Y1-1:X1=X
100 IFD=148THENY1=Y1+1:X1=X
110 IFD=140THENX1=X1-1:Y1=Y
120 IFD=24THENX1=X1+1:Y1=Y1-1
130 IFD=20THENX1=X1+1:Y1=Y1+1
140 IFX1<0ORX1>21THENX1=X
150 POKELO+X+Y*22,32:POKEB,32:SYS7179:POKE36876,0:IFPEEK(LO+X1+Y1*22)<>32THEN250
160 X=X1:Y=Y1:POKELO+X+Y*22,38:POKELO+X+Y*22+CO,1
170 IFF<>0ANDB=0THEN240
180 IFF=0ANDB=0THENB=LO+X+(Y+1)*22:S=235:POKE36876,S:GOTO200
190 B=B+22
200 IFPEEK(B)=39THENSC=SC+40
210 IFPEEK(B)<>32ANDPEEK(B)<42THENSC=SC+10:S=0:POKE36876,S
215 IFPEEK(B)=41THENPOKEB-110,58:POKEB-110+CO,2
220 IFPEEK(B)<>32THENPOKEB,58:B=0:S=0:POKE36876,B:GOTO240
230 POKEB,47:POKEB+CO,2:S=S-10:POKE36876,S
240 PRINT"";TAB(8);SC:GOTO50
250 POKELO+X+Y*22,58:POKELO+CO+X+Y*22,2
260 FORI=15TO0STEP-1:FORJ=15TO1STEP-1:POKE36878,96+I:POKE36877,200
265 POKE36879,8+I*J:NEXTJ,I
270 N=N-1:L=L-1:IFN=-2THENPRINT"[147]FINAL SCORE"SC:POKE36869,240:END
280 GOTO5000
3000 C=C+1:IFC>HTHENC=0:A=INT(RND(1)*4)+34:GOTO3020
3010 A=-1
3020 IFW=42ANDV=3THENW=43:GOTO3080
3030 IFW=43ANDV=0THENW=42:GOTO3080
3040 IFRND(1)<.7ANDW=42THENV=V+1:GOTO3080
3050 IFRND(1)<.7ANDW=43THENV=V-1:GOTO3080
3060 IFW=42THENW=43:GOTO3080
3070 W=42
3080 FORI=0TO10:J=22*I+7701:IFI<VORI>V+7THENPOKEJ,33:POKEJ+CO,5
3090 IFI=VTHENPOKEJ,W:POKEJ+CO,5
3100 IFI=V+7THENPOKEJ,W+2:POKEJ+CO,5
3110 IFI>VANDI<V+7THENPOKEJ,32
3120 NEXTI
3130 IFA=34THENPOKE(V+6)*22+7701,A:POKE(V+6)*22+7701+CO,7
3140 IFA=35THENPOKE(V+6)*22+7701,A:POKE(V+6)*22+7701+CO,6
3150 IFA=36THENPOKE(V+1)*22+7701,A:POKE(V+1)*22+7701+CO,4
3155 IFA=36THENPOKE(V+6)*22+7701,A+5:POKE(V+6)*22+7701+CO,4
3160 IFA=37THENI=(V+INT(RND(1)*3+1))*22+7701:POKEI,A:POKEI+CO,9
3170 RETURN
5000 POKE36879,13:PRINT"[147]":C=0:B=0:X=0:Y=6:X1=0:Y1=6:P=0
5010 FORI=7922TO7965:POKEI,33:POKEI+CO,5:NEXTI
5020 L=L+1:PRINT"";TAB(14);"_?.?_"L
5040 PRINTTAB(7);";<=>?[157][157][157][157]"SC
5044 FORI=7988TO7988+N:IFN<0THEN5050
5046 POKEI,38:POKEI+CO,1:NEXTI
5050 V=INT(RND(1)*3):W=42:FORQ=1TO20:GOSUB3000:SYS7179:NEXTQ
5060 FORI=7900TO7812STEP-22:POKEI,38:POKEI+CO,1:FORJ=1TO500:NEXTJ:POKEI,32:NEXTI
5070 POKE36877,250:POKE36878,106:GOTO50
6000 DATA8,72,138,72,152,72,32,155,224,104,168,104,170,104,40,96